unit ErrorUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, RzLabel, ExtCtrls;

type
  TErrorForm = class(TForm)
    btn_Close: TRzBitBtn;
    lbl_Hint: TRzLabel;
    img1: TImage;
    procedure btn_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ErrorForm: TErrorForm;

implementation
uses DMUnit;
{$R *.dfm}

procedure TErrorForm.btn_CloseClick(Sender: TObject);
begin
  Close;
end;

procedure TErrorForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ErrorHintIsDisplay := False;
  Action := caFree;
end;

procedure TErrorForm.FormCreate(Sender: TObject);
begin
  ErrorHintIsDisplay := True;
end;

end.
